home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / acctg / db3ledge / month.prg < prev    next >
Encoding:
Text File  |  1986-01-12  |  908 b   |  38 lines
  1. SET HEADING OFF
  2. SET SAFETY OFF
  3. *************************(MONTH.PRG)--JAY KENNEY
  4. CLEAR
  5. RESTORE FROM MTITLE
  6. SET TALK OFF
  7. SET EXACT OFF
  8. CLEAR
  9. USE LEDGER
  10. STORE '         ' TO MON
  11. STORE CMONTH(CKDATE) TO MON
  12. @ 18,15 SAY 'Do you want to run a check register for '+[&MON]+'?'
  13. ?
  14. ?
  15. STORE ' ' TO OPTION
  16. WAIT '                                    'TO OPTION
  17. IF OPTION<>'Y'
  18. CLEA
  19. @ 15,15 SAY 'Press F9 to return to menu....'
  20. RETURN
  21. ENDIF
  22. CLEA
  23. REPORT FORM LIST HEADING [&MON Report;&MTITLE;Detail list by check number  ì
  24.   ] NOEJECT TO PRINT
  25. STORE 0.00 TO MBAL,MPAY,MGROSS,MFEDWITH,MSDI,MFEDPAY,MSTATE
  26. SUM AMTCHK TO MBAL
  27. GO TOP
  28. SORT ON ACCT TO TEMP
  29. USE TEMP
  30. REPORT FORM CKREG HEADING [&MON Report;&MTITLE;Detail list by account   ] ì
  31. TO PRINT
  32. REPO FORM SUMMER HEADING [&MON Report;&MTITLE;Compiled list by account] TO PRIN
  33. EJECT
  34. CLEA
  35. @ 15,25 SAY 'Press F9 to return to menu....'
  36. RETURN
  37.  
  38.